home *** CD-ROM | disk | FTP | other *** search
/ CD School House 10 / CD School House - Education and Games (10.0) - Wayzata Technology (1995).iso / mac / DOS / NETWORKS / TPAPI / NWMISC.PA1 < prev    next >
Text File  |  1992-03-02  |  6KB  |  128 lines
  1. {!R! FONT 15; FTMD 15; EXIT;}
  2.  
  3.  
  4. {***************************************************************************}
  5. {** Program : NWMISC                                                      **}
  6. {***************************************************************************}
  7. {** Version : 1.3             ** Started : 11/11/91  ** Ended :   /  /    **}
  8. {***************************************************************************}
  9. {******************************** Description ******************************}
  10. {***************************************************************************}
  11. {** OOP library for Netware API                                           **}
  12. {**                                                                       **}
  13. {** This unit forms the second level object : NWMISC                      **}
  14. {** This object is a descandent of          : NETWARE                     **}
  15. {**                                                                       **}
  16. {**                                                                       **}
  17. {**                                                                       **}
  18. {**                                                                       **}
  19. {***************************************************************************}
  20. {******************************** Information ******************************}
  21. {***************************************************************************}
  22. {** Misc functions                                                        **}
  23. {**                                                                       **}
  24. {**                                                                       **}
  25. {**                                                                       **}
  26. {** This code is (c) 1991,1992 Tony Covelli                               **}
  27. {** Portions (c) Novell Inc,                                              **}
  28. {**                                                                       **}
  29. {**                                                                       **}
  30. {***************************************************************************}
  31.  
  32. {$I NETWARE.INC}
  33.  
  34. UNIT NWMISC;
  35.  
  36. INTERFACE
  37.  
  38. USES
  39.  
  40.   nwvar,
  41.   netware;
  42.  
  43. TYPE
  44.  
  45.   TimeTypes = (AMPM, H24);
  46.   AcctModes = (ReadR, WriteR);
  47.   LDateTimeType = RECORD
  48.  
  49.                     Year,
  50.                     Mth,
  51.                     Day,
  52.                     Hour,
  53.                     Min,
  54.                     Sec  : WORD;
  55.  
  56.                   END;
  57.  
  58.   pMiscFuncOBJ = ^MiscFuncOBJ;
  59.   MiscFuncOBJ  = object (NetwareOBJ)
  60.  
  61.     CONSTRUCTOR Init;
  62.  
  63.     FUNCTION    AccountRestrictions           (ObjectName : ObjectNameType; ObjectType : OT_BinderyType;
  64.                                                VAR AcctRest : AccountRestrictionsType; Mode : AcctModes) : WORD;
  65.  
  66.     FUNCTION    AutoLogin                     (ObjectName : ObjectNameType; ObjectType : OT_BinderyType;
  67.                                                Password : PasswordType; ServerName : ObjectNameType;
  68.                                                VAR SlotNumber : WORD; VAR LoggedInName : ObjectNameType;
  69.                                                ForceLogin : BOOLEAN) : WORD;
  70.  
  71.     FUNCTION    DeleteDriveMapping            (Drive : CHAR) : WORD;
  72.  
  73. {*} FUNCTION    ExpandNetwareDateAndTime      (DateTimeInfo : Byte7ArrayType; TimeType : TimeTypes) : STRING;
  74.  
  75. {*} FUNCTION    ExpandNetwareFileDate         (DateInfo : LONGINT) : STRING;
  76.  
  77.     FUNCTION    ExpandNetwareFileTime         (TimeInfo : LONGINT) : STRING;
  78.  
  79.     FUNCTION    ExpandNetwareLoginDateAndTime (DateInfo : Byte6ArrayType) : STRING;
  80.  
  81.     FUNCTION    FileServerExists              (ServerName : ObjectNameType) : BOOLEAN;
  82.  
  83.     PROCEDURE   GetAllFileServersOnInternet;
  84.  
  85.     PROCEDURE   GetAllObjects                 (SearchName : ObjectNameType; ObjectType : OT_BinderyType;
  86.                                                VAR ObjectList : ObjectListingTypePtr; VAR NoOfObjects : WORD);
  87.  
  88.     PROCEDURE   GetAllShellTables;
  89.  
  90.     FUNCTION    GetDefaultFileServerName : ObjectNameType;
  91.  
  92.     FUNCTION    GetObjectFullName             (ServerName : ObjectNameType; VAR ObjectFullName : FullNameType;
  93.                                                VAR ObjectType : OT_BinderyType) : WORD;
  94.  
  95.     FUNCTION    GetObjectName                 (ServerName : ObjectNameType; VAR ObjectName : ObjectNameType;
  96.                                                VAR ObjectType : OT_BinderyType) : WORD;
  97.  
  98.     FUNCTION    GetStationNumber              (ServerName : ObjectNameType) : WORD;
  99.  
  100.     PROCEDURE   LogoutAndDetachFromFileServer (ServerName : ObjectNameType; ConnectionID : WORD);
  101.  
  102.     FUNCTION    MiscMapDrive                  (Drive : CHAR; PathName : PathNameType; ServerName : ObjectNameType;
  103.                                                VAR DirectoryHandle : BYTE; DriveType : BYTE) : WORD;
  104.  
  105.     FUNCTION    NetWareLoaded                 (VAR LoggedIn : BOOLEAN) : BOOLEAN;
  106.  
  107.     FUNCTION    SearchAllObjects              (SearchName : ObjectNameType; ObjectList : ObjectListingTypePtr;
  108.                                                NoOfObjects, First, Last : WORD) : WORD;
  109.  
  110.     PROCEDURE   SortAllObjects                (VAR ObjectList : ObjectListingTypePtr; NoOfObjects : WORD;
  111.                                                First, Last : WORD);
  112.  
  113.     FUNCTION    Supervisor : BOOLEAN;
  114.  
  115.     FUNCTION    SupervisorEquivalent : BOOLEAN;
  116.  
  117.     FUNCTION    UserMemberOfGroup             (ObjectName, MemberName : ObjectNameType) : WORD;
  118.  
  119.     DESTRUCTOR  Done; VIRTUAL;
  120.  
  121.   END;
  122.  
  123. VAR
  124.  
  125.   FileServersOnInternet : ObjectListingTypePtr;
  126.   NoOfFileServersOnInternet : WORD;
  127.  
  128.